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Brief Description 

MULTIPLICATION OF MATRICES WITH VARIABLE 
LENGTH MANTISSA ON 1620 (CARD) 

a) Author : R. N. MENEGAUX 

94, rue Reaumur 
PARIS (2e) France 

b) Subroutine enabling to multiply two matrices with up to 45 digits of 
mantissa. The two matrices and the product matrix are together in 
core. 

at least 

c) Needs/ the basic 1620 with indirect addressing and automatic division and asks 
for 1330 positions in itself. 

d) A direct method is used 

e) Operating time depends of the mantissa length 

f) Written in SPS II Version II with variable length mantissa 

g) Uses floating point subroutines 

h) Numbers in floating point only 

i) Trials with 10 x 10 (3 mn execution time) and 6x6 matrices 
j) Language : English 

k) None 

1) This program and its documentation were written by an IBM employee. 
It was developed for a specific purpose and submitted for general 
distribution to interested parties in the hope that it might prove helpful to 
other members of the data processing community. The program and its 
documentation are essentially in the author's original form. IBM serves 
as the distribution agency in supplying this program. Questions concerning 
the use of the program should be directed to the author's attention. 
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Write up 

MULTIPLICATION OF MATRICES WITH A 
VARIABLE LENGTH MANTISSA ON THE 
IBM 1620 (CARD) 

DECK KEY 

1 - Symbolic deck 

We have used the numerotation of symbolic 
programmation sheets, i.e. 25 lines for one sheet. The sheet num- 
ber is punched in columns 1-2, the line number in columns 3-4-5. 

We have here : 

Cards from 01 010 to 01 190 main program with the calling sequence 

cards from 01 200 to 05 100 subroutine "MULT" in itself 



2 - Assembled deck 



The whole assembled deck is made of cards 
numbered sequentially from 00 000 to 00 106, punched in columns 
76-80. 

3 - Sample deck 

There are two cards, including : 

- the first, the M matric, 

- the second, the N matrix. 



© 
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GENERALITIES 



a) Author : R. N. MENEGAUX 

94, rue Reaumur 
PARIS (2e) France 

b) Subroutine enabling to multiply two matrices (square of rectangular) 
previously stored in a variable length mantissa form (up to 45). A 
simple calling sequence is to be included in the main program. A 
third array must be given to store the product matrix. The initial 
matrices are left undamaged. 

c) Requires indirect addressing and asks for 1330 positions of core 
without the necessary SPS II Version II Subroutines, and 20 K, 40 K 
or 60 K of core storage. 

d) Multiplication is made from the formula giving every product 
element : 

MN (I, J) = M (K, J) x N (I, K) 
K 

with I = column rank 
and J = row rank 

e) The execution time is proportional to the square of the mantissa 
length 

f) Written is SPS II Version II with variable length mantissa 

g) Uses floating point subroutines 

h) Dimensions of possible matrices : 

Let L be the length of the mantissa 

M 1 and M 2 be the no. of columns and of rows of the 1st matrix 
N 1 and N 2 be the no. of columns and of rows of the 2nd matrix 

As the no. of positions of core required is : 

Subroutine itself 1330 
Tables 400 
Floating point subroutines SPS 2330 

4060 

Then the formula is : 



(Ml x M2); + (Nl x N 2) + (Nl x M 2) = 1 (Memory-main prog. - 4060) 

L + 2 



o 
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where "memory" = 20K, 40K or 60K 

and "main prog. " is the place taken by the main program including the calling 
sequence. 

- Note that the elements of every matrix are in floating point form only. 

- The program uses 34 symbols. 

i) Trials with two matrices of 10 x 10 and of 6 x 6, with a length of 16 positions 
mantissa (it took 3 mn for the 10 x 10 matrix). 



II - MANUAL OPERATING 



Does not occur. 



HI - CALLING SEQUENCE 



The calling sequence to be included in the main program is the following : 



TFM LGM, xxxxx 
TFM NCOLM, xxxxx 
TFM NROWM, xxxxx 
TFM NCOLN, xxxxx 
TFM NROWN, xxxxx 
TFM ADM, xxxxx 
TFM ADN, xxxxx 
TFM ADMN, xxxxx 
TFM FMULT + 6,x + 48 
TFM FERR + 6,x + 24 
B MULT 
Error Return 
Normal Return 



, , LENGTH OF MANTISSA 
, , NO. OF COLUMNS OF MATRIX M 
, , NO. OF ROWS OF MATRIX M 
, , NO. OF COLUMNS OF MATRIX N 
, , NO. OF ROWS OF MATRIX N 
ADDRESS OF 1ST MATRIX M 
,, ADDRESS OF 2ND MATRDC N 
,, ADDRESS OF PRODUCT MATRIX MN 



So you must fill the following constants : 

- "LGM" by the length of the mantissa (up to 45) 

- "NCOLM" by the number of columns of the 1st matrix M 

- "NROWM" by the number of rows of the 1st matrix M 

- "NCOLN" by the number of columns of the 2nd matrix N 

- "NROWN" by the number of rows of the 2nd matrix N 

- "ADM" by the address (to the extreme right) of the first element 
of the first matrix M 

- "ADN" like "ADM" for the 2nd matrix N 

- "ADMN" like "ADM" for the product matrix MN you wish. 

Note that those references and what they contain are not modified by the 
execution of the subroutine : they remain available at the end of the program. 

Control will be given back to the second instruction following the last instruction 
of the calling sequence (here "B MULT"), if the multiplication of the matrices 
has been done normally. 

If not, the following message will be printed : 



- 6 - 



"THE NO OF COLUMNS OF 1ST MATRIX IS NOT 
EQUAL, TO THE NO. OF ROWS OF 2ND MATRIX 



then control will automatically be given back to the first instruction 
following the "B MULT", where a branch to an error procedure may 
be put. 

No essential zeros have been considered in this subroutine. 



The matrices to be multiplied together are supposed to be previously 
stored in sequence row by row from the left to the right. They will be 
left unchanged. 



So the sequence must be : 



Elements (I, J) with 1 = 1 J = 1 
then 1 = 1 J = 2 



1=1 J = NCOLM 
1=2 J = 1 

etc. . . 



The program is provided in SPS II Version II form, to enable users to 
compile it with their own program (and their own length of mantissa). 



TRIAL ON A SAMPLE PROBLEM 



Let us multiply the following two matrices : 



M = 



1 



N = 



- 2 
3/2 



1/2 



Let us suppose the program including the calling sequence 



be : 



DEBUT 



NOP 

RNCD 

RNCD 

TFM 

TFM 

TFM 

TFM 

TFM 

TFM 

TFM 



10 000 

11 000 
LGM 16 
NCOL M 2 
N ROW M, 2 
NCOL N, 2 
N ROW N, 2 
A DM, 10017 
A DN, 11 017 
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TFM ADMN 12017 

TFM FMULT + 6, +48 

TFM FERR + 6, +24 

B MULT 

H ( error return ) 

TD 12 072, 400 

WNTY 12 000 

H ( end of the program) 

B DEBUT 



We add there the subroutine "MULT" itself, in its symbolic form. 

Operating instructions : 

The whole program is compiled in SPS II, Version II, with automatic 
division and variable length of mantissa (here, equal to 16) subroutine 
(Deck numbered 5). The two data matrices are called when the assembled 
program is loaded. 

They have been punched on two cards under the following form : 
10000000000000000120000000000000000 130000000000000000 1400000000000000001 

200000000000000001 10000000000000000 115000000000000000 1500000000000000000 

The first matrix (M) is loaded in address 10000, the second 
matrix (N) in address 11000. 

Dumping from address 12000, we have the result : 

Toooooooooooooooo 1000000000000000099000000000000000099I00000000000000001 

t 

which means matrix MN = , multiplication of the matrices M and N. 

GENERAL FLOW CHART 

cf. following chart. 



© 
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FLOW CHART 



MULTIPLICATION OF MATRICES 



MULT 



< 



Pi 



o 

o 



NO. OF COL. OF M - NO. OF ROWS OF 



■> 



INITIALIZAT 
DEPENDING 
LENGTH OF 


ION 

ON THE 
MANTISSA 






LOOP ON THE ROW RANK 
OF MATRIX M 






LOOP ON THE 
OF MATRIX * 


COLUMN RANK 

1 



LOOP TO ADD PRODUCTS OF 
CORRESPONDING ELEMENTS OF 
MATRICES M AND N IN THE 
ELEMENT OF PRODUCT MATRIX 
MN 



NEXT COLUMN OF N 



NEXT ROW OF M 



ERROR 



o 
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LISTING OF SYMBOLIC SAMPLE PROGRAM Annex II 

CICICcr.oUT MJP MULT 

1 C20 Pi\CC 10000 MULT 

1 C3(j RNCC11000 MULT 
010UG TFM LGM,16 > » LENGTh CF MANTISSA MULT 
01050 TFM NCCLK.2 ,,NL. UF COLUMNS OF MATRIX M MULT 
01C60 TFM NRCV»M,2 ,,NC. OF ROWS OF MATRIX M MULT 
01070 TFM NC0LM.2 f ,N0. OF CCL'JM^S OF MATRIX N MULT 
C1CP0 TFM NRGWN »2 »»NC. CF ROWS OF MATRIX N *ULT 
C1C90 TFM ADM, 10017 ..AFCREbS OF 1ST MATRIX M MULT 

oiiot) tfm adjs. , i i o i 7 ,, address of ?nc matrix h mult 

01110 TFM ADM N, 12017 ,, ADDRESS CF PRODUCT MATRIX MN MULT 

C 1 1 20 TFM FMULT + 6 , * + i*8 MULT 

01 130 TFM FEFR+6t«+2U MULT 

01140 f MULT MULT 

C 1 1 50 I MULT 

C1160 Tu 12072, UOu MULT 

01170 VvNT Y 1 2U0U MULT 

0118C H MULT 

0I19C tt DEBUT MULT 

0120CMLLT C NCCLM , NROWN MULT 

01210 PE P A MULT 

01220 RCTY MULT 

01230 WATYMESSA MULT 

012U0 f:CTY MULT 

0125CF5RR H MULT 

C2C1CPA TF LGT.LGM MULT 

02G20 AM LGT,2,10 MULT 

02030 M NCOLM.LGT MULT 
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C2CUG 


SF 


9b 


MULT 


02050 


TF 


N,99 


MULT 


02060 


M 


N.NROkM 


MULT 


02070 


SF 


95 


MULT 


02CB0 


TF 


NN.99 


mul r 


0*090 


M 


NCOLN i LGT 


MULT 


02100 


SF 


95 


MULT 


02 no 


TF 


NNN.99 


MULT 


02120 


TF 


AZER, AZERR 


MULT 


02130 


SF 


— AZER 


MULT 


021U0 


A 


AZER.LGM 


MULT 


02150 


AM 


AZER, 1 , 10 


MULT 


02160 


TFM 


-AZER, -99, 10 


MULT 


02170 


TF 


AMEM, AMEMR 


MULT 


02 180 


SF 


-AMEM 


MUL F 


02190 


A 


AMEM.LGM 


MULT 


02200 


AM 


AMEM, 1 , 10 


MULT 


02210 


TF* 


-AMEM,0, 10 


MUL r 


02220 


TFM 


IrC 


MULT 


02230PB 


C 


I , NNN 


MULT 


022«40 


BE 


FMULT 


MULT 


0225C 


TFM 


J,0 


MULT 


03010 


TFM 


JJ,0 


MULT 


03020PC 


C 


J,NN 


MULT 


03030 


BE 


PF 


MULT 


03C40 


TFM 


K,X 


MULT 


03050 


TFM 


11,0 


MUL T 


03060 


TF 


AC, ADMN 


MULT 


03070 


A 


AC, I 


MUL r 


03C80 


A 


AC, JJ 


MULT 


03C90 


TF LS 


-AC, -AZER 


MULT 
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03 1CLPC L MULT 

C3I10 i'F PF MULT 

03121 If AM,M;m MULT 

03130 A A M , K MULT 

031UC A AM, J MULT 

03150 TF A iN , A D M MULT 

03160 A AN, I MULT 

0317C A AN, 1 1 MULT 

0318C T F Li)- AN FM ,-AM MULT 

03190 FM - AM FM , - AN MULT 

03200 F A —AC, -AMEM MULT 

032 10 A II,N MULT 

03220 A K.LGT MULT 

03230 [< PD MULT 

0324GRC A J,N MULT 

C325C A JJ,NV\ MULT 

CUC 1 P PC MULT 

0U020PF A I, LGT MULT 

014030 h PB MULT 

OUOUOFMULT B u MULT 

0U050LGM IX 5,00000 MULT 

04060LGT IX 5,00000 MULT 

CU C7CNCCLM DC 5, 00000 MULT 

OUCPONROWf DC 5,00000 MULT 

0li090NC0LN rX 5,00000 MULT 

Oi+lCGl\RCwK IX 5,00000 MULT 

CM 10 ACM (C 'j.GOOOO MULT 

OU 120 AON CC 5,00000 MULT 

OMJOACM'Ni LC 5 ,00000 MULT 
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nil l ii n a v 


DC 


c f> nn n n 










MUL T 


U«* oUflN 


DC 


5 » 00000 










^UL T 


nil l A n a c 


DC 


D j UUUUU 










MULT 


Alt i 7 n\i 
U«* 1 f U IN 


DC 


5 rCOOCO 










"UL T 


nil 1 O A Ki hi 


DC 


5 i 00000 










MUL T 


f\ li 1 o n Nl KI M 

U4 1 VUNINN 


CC 


a f\ n n n 
D t- UUUUU 










MUL T 


nil o nn T 

UH£ UU 1- 


CC 


c n nn c\ n 
D »■ U UUU U 










MULT 






*^ rnnnn 
D ft uu u u 










MUL T 


nil o 9n i 




J jv UU U U 










MUL T 


nil o 7 n i i 


DC 


ii n nn n n 
D t U U U U U 










MULT 


nil o ii n w 


DC 


c n nn n n 
D f UUUUU 










MULT 


niiOQn 7CD 
Uh^OU £cK 


nr 


1 f0 










MUL T 


050 1 


DS 


45 










MUL T 


ncnon a 7 c n n 
U5U2U A£fcRR 


DS A 


ZER 










MULT 


C5030AZER 


DC 


5 ,00000 










MULT 


U5U4UMfcM 


DC 


1 * 










MUL T 


05050 


DS 


U5 










MULT 


05060AMEMR 


DSA 












MULT 


05C70AMEM 


DC 


5,00000 










MUL r 


05C80MESS A 


CAC 


49, THE NO. 


OF 


COLUMNS 


OF 


1ST KATRIX IS NOT EQUAL TO * 


MULT 


05090 


CAC 


30»THE NO. 


OF 


ROWS OF 


2ND 


MATRIX' 


MULT 


051C0 


DENDDEBUT 










MULT 



LISTING OF THE ASSEMBLED SAMPLE PROGRAM 



Annex III 
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36C CO 7200 500 i60 1 2 1 U d0044 000 1 20C 2 7 62 600 59C C 2 74 2 5000 1 1 C C CC 26 C0090002 69 -0000 

260 00 > 500 2 n4 3 1 UO0CCC 0200 2600 1 1400 2 7U 25 00000000 1 I 49C00 12CO0OO -0001 

41G0CO0OOO0(-36 1O0O0OC5 00 36 11 C 0CC 5 C 1 6C 1 U2 6-0 C 1 6 1 60 1 4 3 6-OC C2 * 0- 1- C 402- 04 62 -0CC2 

16C 144 1-0 002 1 60 1446-0002 16U 145 1-CU.2 1 60 1U56JC0 17 160 1461 J 10 17*0-1-0462-0522 -0003 

160 1466 J20 17 160 14 16-0 582 1 600696-0 5 70 4 900 6 30000004 8C C C 00000*0- 1-0522- 0582 -0004 

25 1 2C 720040C3P 1200000 100480000000UC04 9004 0200000240 1436G 1451 *0- 1-0582-0642 -0005 

46f C7C20120 034 000C C0C 102390165500 ICC 34 C 0C00 00 1 C2 49C C C0C G00C0 *0- 1-0642-0 702 -0006 

26 C 14 3 1u 14261 1 1 4 3 1 000-22 30 1 4 360 1 4 3 1 3200095 00 COO 260 1 4 8600099 *0- 1-0702-0762 -0007 

2 3014c60144 1 320009 5000002O 1 4 9 1 00099230 1 4 460 1 4 3 1 32 00095C0G00*0- 1-0762- 0822 -0008 

2 60 14 9600 0992 60 1 5 7 70 1 572 320 1 5 7 P000C C 2 1 1 57 70 1 426 1 1 C 1 5 770CC- 1 *C- 1-C822-0882 -0009 

16C 157P00 2 R2 60 16 3 30 162832 0163 L00UC 0210 163 3014261 101633000-1*0-1-0882-094 2 -0010 

160 16 3LOOO-0 160 150 1-0000 24 15C 1 1 496460 1 4 1 00 1 200 1 60 1 5 1 1-0UC0*0- 1-0942- 1 002 -001 1 

16015 16-0 000240 I 51 1 1 4 9 1 460 1 38 60 1 2 C 1 6C 1 52 1-0000 1 60 1 5 06- 0000 *0- 1- 1 002- 1 062 -0012 

26C 143 10 14662 10 I4F 10 150 12 10148 10 1 5 16 16C 1P6 3- 1 1 2 1 49 C 1 8 32 C 0000*0- 1-1062- 1 122 -00 13 
-148J-157P* 1-1-1117-1127-0014 

24 C 152 10 1 4b64601 3 5 001200260147 10 14562 1 I 47 10 1 52 1 2 1 1 4 7 1 C 1 5 1 1 *0- 1- 1 128- 1 188 -00 15 

260 147601 46 12 10 147 60 15012 10 14 7 60 15C616C 1 86 3- 1 24 74 9C 1 832C00C0*0- I- 1 188- 1248 -0016 

-163L-147J* 1-1-1243-1253 -0017 

1601863-1277490181200000* 0-1-1254-1278 -0018 

-163L-147C* 1-1-1273-1283 -0019 

160 1863-1 30 749C 179200C00* 0- 1- 1 284- 1 308 -0020 

-148J-163L* 1-1-1303-1313 -0021 

2 10 1 5060 14 86210 152 10 14 314901 1 2800U002 1 15 1 1 1 48 62 1 1 5 1 60 1 4 96*0- 1- 1 3 14- 1 3 74 -0022 

49010 14000002 10 1 50 1 1 4 3 1 490096 600C C 04 9C C C CC00000* 0- 1- 1374-1422 -0023 

-0CCC-C00O-O0C0-0rC0-0000-O00C-00OC-00OO-OO00-C0CO-C0CC-0uC0*l- 1- 1422-14 32 -0024 

-0C (.0-000 0- CO CO- 0000-0000- COO C-UOuC-00 00-* 1-1-1482- 1523 -0025 

-1522* 1-1- 1568- 1573 -0026 

-0CC0-* 1-1-1573-1579 -0027 
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-1578* 1- 

-CCC003464 50056560 300564 6004 3565 364 54 5562 CC56 4 600 71 0263* 1- 
00544 16359496700496200555663004 556644 153 00635 600* 1- 
03484500 5 5560 3 005646G 05956666 2 00 56 4600 7255440C544163 594 967C* 1- 
260 191900000440 19080 191 933 19 1900000260 19 190 19 1R490 1 864C0GC0*O- 
26G250900000260 19550 1919 120 1955000-2260250 7000001 5022 1 lC00C2*0- 
26e 1 99 1 1 863260226200000 1 1 1 8 63000-526C2C27C 1 66326C2 08200CC0 *0- 
44 C2 072020833 30208300000 26020 8 30 20 8L 4 902 02 8G 00 00* 0- 
26026540000026021 1902083 1202 1 19000-2260265200000260226601863*0- 
44021 76022623302262000002602262022 6K4902 1 320C0C0* C- 
26C227402262 120227 4000-2 1 1 022 86000-0 1 2022 1 1 COO- 1 47022480 1 2 C0*0- 
15C22 1 100002490000000000* 0- 
260000002 5092600000025074 90000000-00* 0- 
* 1- 
38C228200 1004 30232800401 48-265 202O53 1 602 509000R926C2 50702 662*0- 
490242000000* 0- 
38022 8200 10044023960040 148 JOOOO 10000 1 6C2 50900CRR2 6C 25 070290 7*0- 



49CCC000OO00* 

38022 8200 1C 04 80- 1-2-0020* 



49CC0CCOOO0O* 



* 
* 

-OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOCCOOOOOOOOOCOO* 
JC* 

J57C7 9632 6794 8966 19231 32 169163975 14420985846996* 
M34 29448 190 32 5 162 765 1 126 9 189 16605062294 3 9 70058 0* 
K3025 850929940456840 1799 14 54 6 84 36420760 11 C 14 8862* 
r 9999 999 9999999999 999999 99 999 99999 9997 9 9 99 99 9* 
-CCGCOOOOOOOOOCCOOOOOOOOOOOOt CCCOOCCOOCCCCOOOOOO* 
-OCCOOOOOOOOOOOOOO 000000 OOOOOOOOOOOOOOGGCOOOOOOOO* 



1- 1 624- 
1- 1 62 9- 
1-1684- 
1-1732- 
1-0852- 
1-1908- 
1-1968- 
1-2028- 
1-2072- 
1-2 132- 
1-2176- 
1-2236- 
1-2256- 
1-2291- 
1-2292- 
1-2352- 
1-2360- 
1-2420- 
1-2428- 
1-245 1- 
1-2452- 
1-2510- 
1-2655- 
1-2657- 
1-2656- 
1-2705- 
1-2752- 
1-2799- 
1-2847- 
1-2940- 
1-2892- 



1629 
1684 
1732 
1792 
1912 
1968 
2028 
2076 
2132 
2180 
2236 
2260 
2292 
2292 
2352 
2364 
2420 
2432 
2452 
2452 
2464 
25 I 1 
2656 
2705 
2658 
2752 
2799 
2847 
2 892 
2 988 
2 941 



-0028 
-0029 
-00 30 
-00 31 
-0032 
-0033 
-0034 
-0035 
-0036 
-003 7 
-0038 
-0039 
-0040 
-0041 
-0042 
-004 3 
-0044 
-0045 
-0046 
-0047 
-0C48 
-0049 
-0050 
-005 1 
-0052 
-0053 
-0054 
-0055 
-0056 
-00 57 
-00 58 



© 



00059 



U 1792 16022^-3006* 


0J1 


-1792- 


1804 


9,0060 










0006 1 


18044'- 18523* 


CJ 1 


-1804- 


1812 


R0062 










00063 


0l3121oO2254- 7 ,706* 


31 


-1812- 


1824 


R0064 










00065 


01824490165234 


OJ 1 


-1824- 


1832 


R0066 


160 3086- 306 64 90302 000000* 


0-1 


-2988- 


3012 


-0067 


1 60:'Oc6-3 1 32 1O024 26-34 £446 30 4 40 1 4C 15024 9 10000- 1 


5C2636C000-+O-1 


-3008- 


3068 


-0068 


16C? 29000 o-o49oo crcocooo* 


0- 1 


-3068- 


3092 


-0069 


4403 12002652 33 U2 0520000049031 32 OUGC C* 


0-1 


-3088- 


3124 


-0070 


32G2652000GG4 30 3 16402492 2 1024 920262 74 VO360HGG00O* 


0-1 


-3120- 


3168 


-0071 


4303 1H40263749O35OP0C0O0* 


0- 1 


-3164- 


3188 


-C072 


15C33 '70000 1 1 60 j 3 6 7-265 2 ?4 0? 50 902654 4 60 32 80 1 10046033760 1 200*0- 1 


-3184- 


3244 


-0073 


31 C2 54002 4 V2 3 102492026-57 + 


0- 1 


-2244- 


3268 


-0074 


3 1 0263 702 54 ( 22026 5 40 2 50 94 6 075 CfcO 1 400 1 4 C2 654 GOO JN4 ^03 50 60 1 300*0-1 


-3268- 


3328 


-0075 


2107 3870265444 0336402652 15033 7 7C0GC 2 3^02 63 7COCGC2 


1C25C7CO0C0+O- 1 


-3328- 


3388 


-0076 


16C 35 0700- 122 5 034 4 702 5074 70352 80 1401,2602 50 702506 3 


3C2493000C0*0-1 


-3388- 


3448 


-0077 


15024 72000 J 1 1025C9000- 1460 76 6 60 14004403508024473 


202507CCCC0+O-1 


-3448- 


3508 


-00 78 


1 1 02507000-0490225 600000* 


0-1 


-3508- 


3532 


-0079 


43 C:o20C2 49240023 9 60 1200 3302 50 700 OCC* 


0- 1 


-3528- 


3564 


-0080 


3? C24 9300 00026 356 302 50 9 3 1024 9 20 249 32 502 50 7- 185 1 120 3 563000-1*0-1 


-3564- 


3624 


-0081 


2O02 50903 56 7 4 30 36 5 6024 92 49035 640G0C0 * 


0-1 


-3624- 


3660 


-0082 


4 7034 8401 4 002 5022 9 00350 7 490236 000000* 


0-1 


-3656- 


3692 


-0083 


25 f 22 900 3 50 64 9 G22 9 20 < 000* 


0- 1 


-3688- 


3712 


-0084 


160 30 86-3 74 C. 16038 3 700- 124 903926 00000 + 


0-1 


-3708- 


3744 


-0085 


2? 02507026522 50 34 4 70 09946023960 120 1 6 35 0700-34430386400068*0- 1 


-3740- 


3800 


-0086 


1 of 4 t f <)-()( h>. 12P26640C0- 1 47038600 1 400 12G2509000- 1* 


0- 1 


-3800- 


3848 


-0037 
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LIST OF REFERENCES OF SAMPLE PROGRAM 



Annex IV 



16C2654000RR4304 1 00038 3532CC 06900000 2 102 5090 265449040680CCCC + 0-1-3848- 3908 -0088 
1 603086-3960 1 60383700 J 1 1 16040 79-00832600 09902924490302C0 0000*0- 1-3904-3964 -0089 
2800083025072900083026524604120 1400250344 700083430381200067*0- 1-3960-4020 -0090 
46C23960 1200320006800000 160350700-562202 50902654260250700082*0- 1-4020-4080 -0091 
4M034J20250V490365600000* 0-1-4080-4104 -0092 

1604079-0082490404400000* 0-1-4100-4124 -0093 

15C2290000071602458-2440490242800000* 0-1-4120-4156 -0094 

00095 

01832T6O2254-4152* J 1- 1 832- 1 844 R0096 

00097 

0184449019563* J 1— 1 844- 1 852 R0098 

260250902654260250702652490225600000* 0-1-4152-4188 -0099 

00000 L600000005004900000* -8-0096-0115 -0100 

360010000500360017200500 3600244005003600 316005003600000005 00 -0101 
0000000000001 020304000204060800030 60902 10040802 1610050 15 1C200602 18 142 00* -0102 
7041 128200806 14223009081 7263000000000050607080900 12 14 It 1815181 1242720242* -0103 
822363520353045403632484455324946536048465462754453627180123456789123456* -0104 
789-23456789- J3456789- JK456789-JKL56789- JKLM6789-JKLMN789-JKLMN089- JKLMN* -0105 
M8000000000049-04020P9-JKLMNOPQ* L 1 00388000 19M900000COCOOM9 000 3600000 -0106 



3 1 Ar"-0300ri02RS 



S^S PROCESSOR F0 r 1620/1710 CARD I/O SYSTEM, DATED 1/1/1962 

EHD OF PASS I 

LOAD SUBROUTINES 

CENTER MANTISSA LENGTH 16R3 



END OF 


PASSI 1 


















■00402 


DEBUT 


00630 


MULT 


00690 


FERR 


00702 


PA 


00966 


PB 


01014 


PC 


01128 


PD 


01350 


PE 


01386 


PF 


01410 


FMULT 


;01426 


LGM 


01431 


LGT 


01436 


MCOLM 


01441 


NROWM 


01446 


NCOLN 


bl451 


NROWN 


01456 


ADM 


01461 


ADM 


01466 


ADMN 


01471 


AM 


j01476 


AM 


01481 


AC 


01486 


n 


01491 


NN 


01496 


NNN 


'01501 


1 


01506 


1 1 


01511 


j 


01516 


JJ 


01521 


K 


! 01522 


ZER 


01572 


AZERR 


01577 


AZER 


01578 


MEM 


01628 


AMEMR 


01633 


AM EM 


01635 


MESS A 
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Annex V 



INPUT SAMPLE PROBLEM 



10000000000000000120000000000000006ll00000000000000001400000000000000001 



200000000000000001100000000000000001150000000000000001500000000000000000 



Annex VI 



OUTPUT DUMP OF THE SAMPLE PROBLEM 



1)900402 



1 0000000000000000 1OGOO00000000O0O0>i.000O00000000C000SL/T00OOO00OOO0OOOOO1 



19 



c 



